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EDTSCALLWIO = calls WORKIO routine 15-Sep-1984 23:43:4 VAX-11 Bliss-32 V4.0-7 © 
ser ee=t8Rt 93:53:48 = 


4 a 1 
- DISKSVMSMASTER: CEDT.SRCICALLWIO.BLI;1 (1). 


1 ZTITLE “EDTSCALLWIO = calls WORKIO routine’ 
§ E EDTSCALLWIO ( ' Calls work I/0 routine for EDT 
002 re = 'v04-000' ' File: CALLWIO.8LI Edit: JB8S1007 
8? BEGIN 
o7 PITTIITILILILILILI LL LLL LLL LLL LLL LLL LLL LLL LLL Tili tii 
'@ 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


i® ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORD H 
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; ; : 
pe ; 
3 5 3 
; g " 1 3 
; 1 3 
; 8 0 1 ; 
; 9 1 ® $ 
; 8 10 1 * : 
; 1} VV : * 3 
; ® 3 
: ig 6 ig 1 * : 
3 14 0014 1 !* ONLY I ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® F 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 17 Bot? 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY " : 
; 8 Bats : i TRANSFERRED. * F 
$ ! 3 3 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
H $3 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
. $$ 83 ; ! ~ CORPORATION. : : 
; 24 0024 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; H 8 ; ! + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . | : 
; # 0097 1 is ‘ | : 
3 28 0028 1 Nae e area a eee ee eee AAAAAAEAAAEA AAA AAAAE AEE AEAAEAAEAAERARAEAKERRER HEAR E Ee : 
: S ot 34 1! F 
3 0 0030 1 | 3 
H 1 0031 1 !+4¢ 3 
: ¢ ett] : } FACILITY: EDT -- The DEC Standard Editor | : 
: 0034 1 | ABSTRACT: : 
; 5 it $4 1: ; : 
; $ 544 ; This routine calls the basic work I/0 routine used by EDT. 3 
; 33 9038 1 ' ENVIRONMENT: Runs on Vax/Vms | 2 
: 40 0040 1 i AUTHOR: Shelly T. Solomon, CREATION DATE: 27-Jan-1982 | ; 
; 6 004¢ 1 | MODIFIED BY: | : 
; 6 00465 1! 3 
; «(44 apoE 1! 1- ot - Original. STS 27-Jan-1982 3 
: 65 45 1! I- § - Signal bad status returned. STS 09-Mar-1982 3 
3; «¢ Bose 1! I- - Deallocate as much as possible if signal ling. STS 09-Mar-1982 r 
; 4 0047 1 ! 1-004 = Don't enable a handler. STS 18-Mar-1982 3 
; 6448 Bpe8 1 ! 1-005 = Take out reference to work_rout - 11's. STS 02-Jun-1982 3 
; #649 9 1! I- Be - Enable a handler. STS 21-Jul-198 3 
$ 39 3 ' 1-007 - Improve the appearance of the Listing. JBS 13-Jun-1983 5 
: 52 0052 1° 
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DT EKSVMEMASTER (EDT SRCTCALLWIO.0L1 51 . (2) 
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FORMAL PARAMETERS: 


EDTSCALLWIO EDTSCALLWIO = calls WORKIO routine 55-Sep-1984 243:4 VAX-11 Bliss-32 V4.0-74 Pa 3 

TO. 00D EDTSCALLWIO = Calls EDT work I/0 routine 1228 08=198e 93:33:48 PE KSUMGMASTERSCEDT SRCTCALLWIO.BLIs1 wt (3) | 

; 97} XSBTTL "EDTSCALLWIO = Calls EDT work 1/0 routine! | 
38 GLOBAL ROUTINE EDTSSCALLWIO ( ' Calls EDT work I/0 routine 
00 : Operation code 
701 RECORD_NO i Record number 
? é RECORD ~DESC i Record descriptor 
7 ):s 
7 | 
705 ++ 
, FUNCTIONAL DESCRIPTION: 
79 This routine sets up a condition handler and then calls the designated 
7 work 1/0 routine. | 


CODE = the operation to be performed, whether open, close, read or write 
RECORD_NO = the number of the record to be read or put 


RECORD_DESC - a descriptor pointing to the place to put the record read, or 
to find the record written 


] 

{ IMPLICIT INPUTS: 
! NONE 

i IMPLICIT OUTPUTS: 
NONE 

i COMPLETION STATUS: 
Same as WORKIO | 
i SIDE EFFECTS: | 
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NONE | 
| 
eer 
BEGIN 
L ZIF XBLISS (BLISS32) | 
ZTHEN 
EXTERNAL ROUTINE | 
744 EDTSSWIOHNDLR, | 
745 EDT$$SC_RESET 
7% EDT$SDER_ALLHEAP, 
7% STRSFREET_DX; 
748 
74 EXTER 


NA 
EDTS$A_WORK_ROUT, 
EDT$$G~WORK-E 


a ogpress of routine for work 1/0 
. i 
EDT$$G_EDIT_MOD; 


1 
: le routine environment word 
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1984 23:43:4 VAX=11 Bliss-32_V4.0-74 Page 4 
71382 13:33:18 DLSKSVMSMASTERSCEDT SRCICALLWIO.BLI:1 2 (3) | 
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Calls EDT work 1/0 routine 14-Se 
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' as iocall. -e@. what is happening is that a call is being made to the 
! routine whose address is contained in the variable EDTS$$A_WORK_ROUT. 
! The contents of the variable EDTS$G_WORK_ENV is first put into register 1 
! for the call. (This is done because of the requirements of callable EDT 

! where the user can specify his own work routine and some high-leve 

! Languages require an environment word to be passed in register 0.) 


! The remaining three parameters in the List are the actual parameters | 
! passed to the work 1/0 routine. | 


ZIF ZBLISS (BLISS32) 
ZTHEN 


NABLE 
EDTSSWIOHNDLR (); 


| 
| 
reise ATUS = 1OCALe (.EDTS$A_WORK_ROUT, .EDTS$$G_WORK_ENV, ZREF (.CODE), .RECORD_NO, .RECORD_DESC); | 

| 


SUSAR AV SOBISA PII SOD VO Roo 
np pepe pe en ee A 
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ZELSE 
EXTERNAL ROUTINE 
EDTSWORKIO; 
tf I 
LOCAL 
STATUS; 
~ MESSAGES ((PASSTATUS)); 
The following call is a general routine call using the Linkage defined | 
; 
| 
! 
4 
' 
4 
] 
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uU 
U we STATUS = EDTSWORKIO (XREF (.CODE), .RECORD_NO, .RECORD_DESC); 

89 L ZIF XBLISS (BLISS32) 

90 ? ZTHEN 

% v4 IF ( NOT .STATUS) 

9 7 THEN 

Be f BEGIN 

96 ? IF (.EDTS$G_EDIT_MOD EQL CHANGE_MODE) THEN EDTSS$SC_RESET (); | 

98 79 STRSFREE1_DX (.RECORD_DESC); | 

199 7 EDTSSDEA_ALLHEAP (); 

200 7 SIGNAL_STOP (EDT$_PASSTATUS, 0, .STATUS, 0); 

01 8 ND; | 

0¢ 8 | 

0 8 ZF I 

sR 

05 RETURN (.STATUS); : 

206 805 END; ' End of routine CALLWIO 


E FD TSCALLIO EDTSCALLWIO = calls WORKIO routine 
T \v04-000\ 


8 j 
EDTSCALLWIO LLWIO = calls WORKIO routine 14. -Sep- 74 VAX-11 Bliss-32 V4.0-74 Page 5. 
Ou. 600 LLWIO = Calls EDT work 1/0 routine 14- =Sep- 1382 $3: $3: § DISKSVMSMASTER:CEDT. SRCSCALLUIO.8L151 ° (3). 
«EXTRN EDTSSWIOHNDLR, EDTSSSC_RESET 
-EXTRN EDTSSDEA at 
sEXTRN STRSFREET_DX, EDTS$A_WORK_ROUT 
“EXTRN EDTS$$G_ BORK * Env 
sEXTRN EDTS$$G-EDIT- nOD 
eEXTRN EDTS_PASSTATUS 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 00000 .ENTRY EDTSS$CALLWIO, Save R2 : 0699. 
36 ose fe OOF 0005 ane ag Sep ‘ 0738. 
$5 000009086 60 06 80 A MOVL EDESSA_ WORK _ROUT, RO : Oras | 
7E 08 AC 7D 00011 MOVQ RECORD-NO, =(SP : | 
08 AE 4 AC 00 00015 MOVL ODE, B(SP) : 
8 AE 9F OOOIA PUSHAB 8(SP5 : 
51 000000006 00 00 0001D OVL EDTSSG WORK_ENV, R1 : 
60 03 FB 00024 CALLS #3, (RO) : 
20 DO 00027 MOVL RO, STATUS : 
E8 OO02A BLBS STATUS, 2$ + 0791 
000000006 00 05 000 TSTL  EDT$$G_EDIT_MOD + 0795 
07 12 000 BNEQ ~=«'1$ : 
000000006 00 00 FB 000 CALLS #0, EDTS$SSC_RESET : 
0c AC DD 0003C 1$: PUSHL RECORD _DESC™ + 0797 
000000006 00 01 FB 0003F CALLS #1, STRSFRE : 
000000006 00 00 FB 00046 CALLS #0, EDT$SDEA_ALLHEAP : 0798 
fe D4 00040 CLRL = = (§P) : 0799 
52 DD 0004F PUSHL STATUS ; 
7E D4 00051 CLRL. =(SP : 
000000006 8F DD 00053 PUSHL #EDT$_PASSTATUS : 
000000006 00 04 FB 00059 CALLS #4, LYBS$STOP ; 
50 52 DO 00060 28: MOVL STATUS. RO + 0804 
04 00063 RET : 0805 
0000 00064 3$: «WORD Save nothing ; 0738 
7E 04 00066 CLRL = = (SP) ; 
5E DD 00068 PUSHL SP ; 
7E 04 AC 7D 0006A MOVQ. 4 (AP), =(SP) : 
000000006 00 03 FB 0006E CALLS #3, EDTSS$WIOHNDLR ; 
04 0007 RET : 


; Routine Size: 118 bytes, Routine Base: _EDTSCODE + 0000 


07 0806 1 
08 0807 1 !<BLF/PAGE> 


PLISS/EHE CROC FELD, INST EAL GPT ENE EE) SEDTRACEDACEA, E58 FSS: CALA SEO /ER SOR ISs CALLUTO MSRC$: CALLWIO.BLI/UPDATE=(ENHS: CALLWIO 


EDTSCALLWIO EDTSCALL 
104-000 EDTSCAL 
3; 210 08 1 
: 211 09 1 
: 212 10 0 
: _EDTSCODE 
; File 
> _$255$DUA28:CEDT.SRC) 
> 7$255$0UA28:CEDT. SRC) 
> 7$255$puA28:(SYSLIBJS 
siaes 118 code 
un Time : 


Stoned Tine: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
ry Used: 83 pages 
Compication Complete 


W10 = calls WORKIO routine 309 =1384 $3: $3: 4 VAX-11 Bliss-32 V 
Wl0 = Calls EDT work 1/0 routine Sep-1984 12:2 DISKSVMSMASTER:CE 
END ! End of module CALLWIO 
ELUDOM 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
118 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
omenmenD Symbols -c-re--- Pages Processing 
Total Loaded Percent Mapped Time 
EDT.L32;1 377 2 0 40 00:00.2 
6 PE 1 50 7 00:00.1 
TARLET.L32;1 9776 0 0 581 00:04.0 
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